home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / ansi.swg / 0012_How To Use THEDRAW #2.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  2.2 KB  |  49 lines
  1. Well, everyone is asking how to integrate a picture from The Draw into your
  2. Pascal Program, so here is how to do it.
  3.  
  4. First start up The Draw, and either Draw, or load your picture(pretty
  5. simple).
  6.  
  7. then select Save.
  8. When asked For a save Format, select (ObJect).
  9. For Save Mode, select (Normal).
  10. For Memory Model, select (Turbo Pascal v4+).
  11. For Reference identifier to use, Type in the name that you wish to have the
  12. picture Procedure named, this will be explained later.
  13. then, For the Filename, of course enter the Filename you wish to save it
  14. under.
  15.  
  16. Next, is the method to place The .OBJ image into your Program.
  17. Somewhere up in the declairations area (after the Var statements, and
  18. beFore your begin) place the following:
  19.  
  20. {$L C:\PATH\PICTURE.OBJ}
  21. Procedure ProcName; external;  {Change ProcName to the Reference Identifier
  22.                                 That you used when saving the picture}
  23.  
  24. then, to call that picture, there is 1 of 2 ways. First of all, you can
  25. make another Procedure immediatly after this one that goes as such:
  26.  
  27. Procedure DrawANSIScreen;
  28. begin
  29.   Move(Pointer(@ProcName)^,prt($B800,0)^,4000);
  30. end;
  31.  
  32. then all you have to do is call the Procedure DrawANSIScreen to draw your
  33. picture. or you can copy that line beginning With Move into your source
  34. code directly. Make sure to again replace the ProcName With your specified
  35. Referecne Identifier. Make sure to give each picture a different
  36. Identifier, I do not know what the outcome would be if you used the same
  37. one. Probally wouldn't even Compile. Also, I have not tried this With
  38. Animation. Considering that this Writes directly to screen, it probally
  39. won't work, or will be too fast For the human eye to follow. On top of
  40. this, I migh point out that since this IS a direct video access, the cursor
  41. WILL not move For it's last position when the screen is printed, so you can
  42. fill the Complete screen, and it will not scroll.
  43.  
  44. Hope that this has been helpful. It's very easy, and I pulled it direct
  45. from The Draw docs. This is supposed to work With Pascal 6.0 and up only.
  46. to work With earlier Pascal versions, please read the docs. They entail the
  47. process Completely (but not very understandibly <G>).
  48.  
  49.